home *** CD-ROM | disk | FTP | other *** search
- object UserEditForm: TUserEditForm
- Left = 323
- Top = 95
- Width = 473
- Height = 471
- BorderIcons = []
- Caption = 'Creating User Accounts'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poDesktopCenter
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object pagecontrolSetup: TPageControl
- Left = 8
- Top = 8
- Width = 449
- Height = 393
- ActivePage = tabsheetSetup
- TabOrder = 0
- object tabsheetSetup: TTabSheet
- Caption = 'Setup'
- object lblInstructions: TLabel
- Left = 16
- Top = 8
- Width = 415
- Height = 77
- AutoSize = False
- Transparent = True
- WordWrap = True
- end
- object Categorybox1: TGroupBox
- Left = 228
- Top = 88
- Width = 205
- Height = 273
- Caption = 'User is blocked from'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object DBCheckBox3: TDBCheckBox
- Left = 18
- Top = 22
- Width = 160
- Height = 20
- Alignment = taLeftJustify
- Caption = 'Pornography'
- DataField = 'PORN'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- ValueChecked = 'T'
- ValueUnchecked = 'F'
- end
- object DBCheckBox4: TDBCheckBox
- Left = 18
- Top = 54
- Width = 160
- Height = 19
- Alignment = taLeftJustify
- Caption = 'Adult Subjects'
- DataField = 'ADULT'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- ValueChecked = 'Y'
- ValueUnchecked = 'N'
- end
- object DBCheckBox5: TDBCheckBox
- Left = 18
- Top = 86
- Width = 160
- Height = 19
- Alignment = taLeftJustify
- Caption = 'Violence/Criminal Activity'
- DataField = 'VIOLENCE'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- ValueChecked = 'Y'
- ValueUnchecked = 'N'
- end
- object DBCheckBox6: TDBCheckBox
- Left = 18
- Top = 118
- Width = 160
- Height = 19
- Alignment = taLeftJustify
- Caption = 'Hate/Persecution'
- DataField = 'HATE'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- ValueChecked = 'Y'
- ValueUnchecked = 'N'
- end
- object DBCheckBox7: TDBCheckBox
- Left = 18
- Top = 150
- Width = 160
- Height = 19
- Alignment = taLeftJustify
- Caption = 'Drugs/Alcohol'
- DataField = 'DRUGS'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- ValueChecked = 'Y'
- ValueUnchecked = 'N'
- end
- object DBCheckBox8: TDBCheckBox
- Left = 18
- Top = 182
- Width = 160
- Height = 19
- Alignment = taLeftJustify
- Caption = 'Gambling'
- DataField = 'GAMBLE'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- ValueChecked = 'Y'
- ValueUnchecked = 'N'
- end
- object DBCheckBox9: TDBCheckBox
- Left = 18
- Top = 214
- Width = 160
- Height = 19
- Alignment = taLeftJustify
- Caption = 'Weaponry'
- DataField = 'WEAPON'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- ValueChecked = 'Y'
- ValueUnchecked = 'N'
- end
- end
- object GroupBox1: TGroupBox
- Left = 4
- Top = 88
- Width = 217
- Height = 273
- Caption = 'User Information'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object Label1: TLabel
- Left = 18
- Top = 20
- Width = 53
- Height = 13
- Caption = 'User Name'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 18
- Top = 68
- Width = 71
- Height = 13
- Caption = 'User Password'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 18
- Top = 152
- Width = 44
- Height = 13
- Caption = 'User Age'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 18
- Top = 110
- Width = 84
- Height = 13
- Caption = 'Confirm Password'
- end
- object UserNameEdit: TDBEdit
- Left = 18
- Top = 36
- Width = 181
- Height = 21
- CharCase = ecUpperCase
- DataField = 'USERNAME'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 10
- ParentFont = False
- TabOrder = 0
- end
- object UserPassEdit: TDBEdit
- Left = 18
- Top = 84
- Width = 181
- Height = 21
- CharCase = ecUpperCase
- DataField = 'USERPASS'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 10
- ParentFont = False
- PasswordChar = '*'
- TabOrder = 1
- end
- object AgeCombo: TDBComboBox
- Left = 18
- Top = 170
- Width = 181
- Height = 21
- Style = csDropDownList
- DataField = 'age'
- DataSource = UserSource
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'Age 25-34'
- 'Preschool'
- 'Grade 1'
- 'Grade 2'
- 'Grade 3'
- 'Grade 4'
- 'Grade 5'
- 'Grade 6'
- 'Grade 7'
- 'Grade 8'
- 'Grade 9'
- 'Grade 10'
- 'Grade 11'
- 'Grade 12'
- 'Age 18-24'
- 'Age 25-34'
- 'Age 35-49'
- 'Age 50-64'
- 'Age 65 +'
- ' ')
- ParentFont = False
- TabOrder = 3
- end
- object chkSubmit: TDBCheckBox
- Left = 18
- Top = 202
- Width = 135
- Height = 19
- Caption = 'Allow site submission'
- DataField = 'SUBMIT'
- DataSource = UserSource
- TabOrder = 4
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- object edtConfirm: TEdit
- Left = 18
- Top = 128
- Width = 181
- Height = 21
- PasswordChar = '*'
- TabOrder = 2
- end
- object dbcheckLogit: TDBCheckBox
- Left = 18
- Top = 226
- Width = 97
- Height = 17
- Caption = 'Log history'
- DataField = 'LOGIT'
- DataSource = UserSource
- TabOrder = 5
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- object dbcheckBlock: TDBCheckBox
- Left = 18
- Top = 249
- Width = 97
- Height = 17
- Caption = 'Block by word'
- DataField = 'WORDBLOCK'
- DataSource = UserSource
- TabOrder = 6
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- end
- end
- end
- end
- object BitBtn2: TBitBtn
- Left = 248
- Top = 406
- Width = 103
- Height = 31
- Caption = 'Cancel Entry'
- Default = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = BitBtn2Click
- NumGlyphs = 2
- end
- object SaveButton: TBitBtn
- Left = 362
- Top = 406
- Width = 97
- Height = 31
- Caption = 'Save'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = SaveButtonClick
- NumGlyphs = 2
- end
- object UserSource: TDataSource
- DataSet = UsersDB
- Enabled = False
- Left = 24
- Top = 406
- end
- object UsersDB: THalcyonDataSet
- About = 'Halcyon Version 06.6.0 (21 Mar 00)'
- AutoFlush = False
- EncryptionKey = 'x~4+.?-'
- Exclusive = False
- LockProtocol = Default
- TranslateASCII = True
- UseDeleted = False
- UserID = 0
- Left = 60
- Top = 406
- end
- end
-